home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_10772.txt < prev    next >
Text File  |  1990-10-02  |  3KB  |  94 lines
  1. -- card: 10772 from stack: in
  2. -- bmap block id: 21382
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: open door
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "Yes, you guessed it.  This is an open door." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=161 top=302 right=323 bottom=192
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: OK
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global filter
  28.   if filter is "yes" then
  29.     beep
  30.     exit mouseup
  31.   end if
  32.   global donteat
  33.   get bkgnd field "do what"
  34.   if the number of words in it > 1 then
  35.     beep 2
  36.     oneword
  37.     exit mouseup
  38.   end if
  39.   if it contains "open" then
  40.     put "It is already open." into field "info"
  41.     exit mouseup
  42.   end if
  43.   if it contains "close" or it contains "push" or it contains "knock" then
  44.     put "It closes and locks with a click."&return & "   Good going.  You have just locked yourself in "& "the cell, where you spent the rest of your life regretting "& "that action.≈∏" into field "info"
  45.     global filter
  46.     put "yes" into filter
  47.     exit mouseup
  48.   end if
  49.   if it contains "examine" or it contains "look" then
  50.     send "opencard" to this card
  51.     exit mouseup
  52.   end if
  53.   if it contains "hit" or it contains "kick" or it contains "punch" then
  54.     play "boing"
  55.     put "When you hit the door, it slams shut."& return & "   Good going.  You have just locked yourself in "& "the cell, where you spent the rest of your life regretting "& "that action.≈∏" into field "info"
  56.     global filter
  57.     put "yes" into filter
  58.     exit mouseup
  59.   end if
  60.   if it contains "get" or it contains "move" then
  61.     put "You give up once you realize"& " that you are not strong enough to rip the door off its hinges." into field "info"
  62.     exit mouseup
  63.   end if
  64.   if it contains "eat" or it contains "consume" then
  65.     put donteat into field "info"
  66.     exit mouseup
  67.   end if
  68.   if it contains "go" then
  69.     send "mouseup" to bkgnd button "done"
  70.     send "mouseup" to bkgnd button "north"
  71.     exit mouseup
  72.   end if
  73.   if it is "" then
  74.     put "Speak up.  I can't hear you." into field "info"
  75.     exit mouseup
  76.   end if
  77.   idunno
  78. end mouseUp
  79.  
  80. on cont
  81.   global filter
  82.   if filter is "yes" then go to card "death"
  83.   put "" into filter
  84. end cont
  85.  
  86.  
  87.  
  88. -- part contents for background part 2
  89. ----- text -----
  90. What would you like to do with the open door?
  91.  
  92. -- part contents for background part 7
  93. ----- text -----
  94. Open Door